home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm8 / 00741_DE-mps bt lec.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  692 b   |  32 lines

  1. on MouseClick
  2.   global gBoutons, gNumSpr, g1erSprLoc, gLabel, gMessDef1, gEtudAct, gLocLabel
  3.   if gEtudAct <> "lec" then
  4.     curseur(6)
  5.     set gLabel to "DE:lec"
  6.     set the text of cast "titre" to gMessDef1
  7.     set gLocLabel to "DE:OU" && gEtudAct
  8.     set gEtudAct to "lec"
  9.   end if
  10. end
  11.  
  12. on mouseDown
  13.   global gBoutons, gNumSpr, g1erSprLoc
  14.   set gNumSpr to g1erSprLoc + 9
  15.   gBoutons(appuie, gNumSpr)
  16. end
  17.  
  18. on mouseUp
  19.   global gBoutons, gNumSpr, g1erSprLoc, gLabel, gMessDef1, gEtudAct
  20.   curseur(1)
  21.   set monNumSpr to g1erSprLoc + 9
  22.   if gNumSpr = monNumSpr then
  23.     if the doubleClick then
  24.     else
  25.       MouseClick()
  26.     end if
  27.     gBoutons(relache, gNumSpr)
  28.   else
  29.     pass()
  30.   end if
  31. end
  32.